home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / H-Graphics / (c)h7.d64 / menumaker (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  568b  |  29 lines
  1. 10 POKE53280,0:POKE53281,0
  2. 20 PRINT"[147][154]           [196]ISK [205]ENUFILE [195]REATOR        "
  3. 30 X=0:PRINT
  4. 40 PRINT"[208]RESS [210][197][212][213][210][206] TO [197]XIT"
  5. 50 DIMP$(144)
  6. 60 PRINT"[201]NPUT DISK NAME":D$=""
  7. 70 PRINT:INPUTD$:IFD$=""THEN60
  8. 80 X=X+1:P$(X)="":PRINT"[201]NPUT PROGRAM NAME #"X
  9. 90 INPUTP$(X):IFP$(X)=""THEN200
  10. 100 GOTO80
  11. 200 PRINT"[198]INISHED ENTERING NAMES? [217]/[206]":POKE198,0:X=X-1
  12. 210 GETA$:IFA$="N"THEN80
  13. 220 IFA$="Y"THEN250
  14. 230 GOTO210
  15. 250 OPEN15,8,15
  16. 260 OPEN2,8,2,"0:MENUFILE,S,W"
  17. 270 GOSUB500
  18. 280 PRINT#2,D$:PRINT#2,X
  19. 290 FORN=1TOX
  20. 300 PRINT#2,P$(N)
  21. 310 NEXT
  22. 320 CLOSE2:CLOSE15
  23. 330 PRINT" [198]INISHED ! ":END
  24. 500 INPUT#15,E1,E$,E2,E3
  25. 510 IFE1=0THENRETURN
  26. 520 PRINT" [196]ISK [197]RROR ! "
  27. 530 PRINTE1;E$;E2;E3
  28. 540 CLOSE2:CLOSE15:END
  29.